(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     56656,       1314]
NotebookOptionsPosition[     51790,       1232]
NotebookOutlinePosition[     52170,       1249]
CellTagsIndexPosition[     52127,       1246]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", 
   RowBox[{"f_", ",", "R2_", ",", "r_", ",", "RA_"}], "]"}], ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Omega]", "=", 
       RowBox[{"2", "Pi", " ", "f"}]}], ",", 
      RowBox[{"R0", "=", "100"}], ",", 
      RowBox[{"R3", "=", 
       RowBox[{"10000", "/", "R2"}]}], ",", 
      RowBox[{"C", "=", 
       RowBox[{"10", "^", 
        RowBox[{"-", "7"}]}]}], ",", 
      RowBox[{"L", "=", "0.001"}], ",", 
      RowBox[{"U", "=", "1.78"}]}], "}"}], ",", 
    RowBox[{
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Re", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"U", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "r"}], "-", "R2", "-", "RA", "-", 
                RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}], "-", 
                RowBox[{
                "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", 
                 "\[Omega]"}], "-", 
                RowBox[{
                "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", 
                 "\[Omega]"}], "-", 
                RowBox[{
                "\[ImaginaryI]", " ", "C", " ", "R0", " ", "RA", " ", 
                 "\[Omega]"}], "-", 
                RowBox[{
                "\[ImaginaryI]", " ", "C", " ", "R2", " ", "RA", " ", 
                 "\[Omega]"}], "+", 
                RowBox[{"C", " ", "L", " ", "R0", " ", 
                 SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "r"}], " ", "R2"}], "-", 
              RowBox[{"r", " ", "R3"}], "-", 
              RowBox[{"R2", " ", "R3"}], "-", 
              RowBox[{"r", " ", "RA"}], "-", 
              RowBox[{"R3", " ", "RA"}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "L", " ", "R2", " ", "\[Omega]"}],
               "-", 
              RowBox[{
              "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R2", " ", 
               "\[Omega]"}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "L", " ", "R3", " ", "\[Omega]"}],
               "-", 
              RowBox[{
              "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "R3", " ", 
               "\[Omega]"}], "-", 
              RowBox[{
              "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "R3", " ", 
               "\[Omega]"}], "-", 
              RowBox[{
              "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R2", " ", "R3", " ",
                "\[Omega]"}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "L", " ", "RA", " ", "\[Omega]"}],
               "-", 
              RowBox[{
              "\[ImaginaryI]", " ", "C", " ", "r", " ", "R0", " ", "RA", " ", 
               "\[Omega]"}], "-", 
              RowBox[{
              "\[ImaginaryI]", " ", "C", " ", "r", " ", "R2", " ", "RA", " ", 
               "\[Omega]"}], "-", 
              RowBox[{
              "\[ImaginaryI]", " ", "C", " ", "R0", " ", "R3", " ", "RA", " ",
                "\[Omega]"}], "-", 
              RowBox[{
              "\[ImaginaryI]", " ", "C", " ", "R2", " ", "R3", " ", "RA", " ",
                "\[Omega]"}], "+", 
              RowBox[{"C", " ", "L", " ", "R0", " ", "R2", " ", 
               SuperscriptBox["\[Omega]", "2"]}], "+", 
              RowBox[{"C", " ", "L", " ", "R0", " ", "R3", " ", 
               SuperscriptBox["\[Omega]", "2"]}], "+", 
              RowBox[{"C", " ", "L", " ", "R2", " ", "R3", " ", 
               SuperscriptBox["\[Omega]", "2"]}], "+", 
              RowBox[{"C", " ", "L", " ", "R0", " ", "RA", " ", 
               SuperscriptBox["\[Omega]", "2"]}], "+", 
              RowBox[{"C", " ", "L", " ", "R2", " ", "RA", " ", 
               SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], "-", 
           FractionBox[
            RowBox[{"R2", " ", "U", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "R2"}], " ", 
                RowBox[{"(", 
                 RowBox[{"R0", "+", "R3", "+", "RA", "-", 
                  FractionBox["\[ImaginaryI]", 
                   RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "+", 
               RowBox[{"RA", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "R0"}], "+", 
                  FractionBox["\[ImaginaryI]", 
                   RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}]}], 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"R2", " ", 
                 RowBox[{"(", 
                  RowBox[{"R0", "+", "R3", "+", "RA", "-", 
                   FractionBox["\[ImaginaryI]", 
                    RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
                RowBox[{"RA", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "R0"}], "+", 
                   FractionBox["\[ImaginaryI]", 
                    RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["R2", "2"], "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"R0", "+", "R2", "-", 
                   FractionBox["\[ImaginaryI]", 
                    RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"r", "+", "R2", "+", "RA", "+", 
                   RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], 
                  ")"}]}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"RA", " ", 
                 RowBox[{"(", 
                  RowBox[{"R0", "+", "R2", "-", 
                   FractionBox["\[ImaginaryI]", 
                    RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}], "-", 
                RowBox[{"R2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "R0"}], "+", 
                   FractionBox["\[ImaginaryI]", 
                    RowBox[{"C", " ", "\[Omega]"}]]}], ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"R2", " ", "RA"}], "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "R0"}], "+", 
                   FractionBox["\[ImaginaryI]", 
                    RowBox[{"C", " ", "\[Omega]"}]]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"r", "+", "R2", "+", "RA", "+", 
                   RowBox[{"\[ImaginaryI]", " ", "L", " ", "\[Omega]"}]}], 
                  ")"}]}]}], ")"}]}]}]]}], "]"}], ")"}], "^", "2"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", 
         RowBox[{"2", 
          RowBox[{"Pi", "/", "\[Omega]"}]}]}], "}"}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", 
       RowBox[{"Pi", "/", "\[Omega]"}]}], ")"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.782444662642105*^9, 3.7824446641041965`*^9}, {
   3.7824475485552936`*^9, 3.782447641760137*^9}, 3.78244768878638*^9, {
   3.7824647977476606`*^9, 3.7824648062838345`*^9}, 3.7824650027840424`*^9, {
   3.7824650340214033`*^9, 3.7824650670176744`*^9}, {3.782465121500976*^9, 
   3.7824651742700353`*^9}, {3.7824652096699524`*^9, 3.782465236288247*^9}, {
   3.7824653246790547`*^9, 3.7824653578574953`*^9}, {3.7824653936424923`*^9, 
   3.782465404901889*^9}, {3.7824657201477013`*^9, 3.782465730709119*^9}, {
   3.7824660132463074`*^9, 3.782466020072052*^9}, {3.782466608588643*^9, 
   3.782466609599969*^9}, {3.7824677117801905`*^9, 3.7824677225004845`*^9}, {
   3.7824700038938894`*^9, 3.782470010065385*^9}, {3.7824727962532196`*^9, 
   3.7824728074702168`*^9}, {3.7824739495790744`*^9, 3.7824739904584303`*^9}, 
   3.7824746781170683`*^9, 3.7824747333094826`*^9, 3.7824759932364388`*^9, {
   3.782476240234148*^9, 3.7824762520186696`*^9}, {3.782477304000128*^9, 
   3.78247731897468*^9}, {3.782477426318035*^9, 3.7824774269942255`*^9}, {
   3.7824778683352804`*^9, 3.782477883492795*^9}, {3.7824779156482215`*^9, 
   3.7824780732042027`*^9}, {3.782483047670721*^9, 3.782483088018552*^9}, 
   3.7824835223478017`*^9},
 CellLabel->"In[92]:=",ExpressionUUID->"1795e264-4c49-4864-b124-9d965d920f01"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"f", ",", 
      RowBox[{"F", "[", 
       RowBox[{"f", ",", "100", ",", "0.1", ",", "10"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"f", ",", "200", ",", "800", ",", "10"}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.782483355322757*^9, 3.78248345511307*^9}, {
  3.782483494673808*^9, 3.782483503138172*^9}, {3.782483569528121*^9, 
  3.7824835701105633`*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"22a6419e-f677-46f9-aceb-c9687b42951a"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011000000000000001`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1knsslXEYx08q1syi+gPNXMYUKuUfI8d3iWbIbdXZsoWG5RCO23E6cQ4O
B80lcmkqjESLUyKXkYhZNV3cOswlCqfJUDIpuvye3u3du8/ey+f9PHuMAyN8
gtQ4HI7Dn/PvlR2XUNJo+nJniMrhHyIUsvpn1nsi5hlL+Ggo5zcico5xZxiW
bYQ1nvxZxpzLCNNQblMP+ETvR6BsbdjLxucjcSSqbKUd9Y4zjKcicb3sOcfP
Ypq+HwX7KDtf470fGBsJ8GiYOz69Okk+AZSiza1rPeOM/aPh3mHg6FI0Rv4Y
RL0PzzYNVzIui8GUR2neadcR8sdCPKYp3zg0RP5YxKvr2EYbDJA/DtkNWUot
/bfkj0dN2uBWiHs/+eOhuKin0S5/QX4h9oQZDlkt9pI/AeuhK+UqaTf5E3Av
8HaZs2sn+UWYCD91Myi/lfwiCJ1EAplOI/mvwK1OVe+uqyC/GAmth42eBFeT
X4yG2hwVWu+Q/ypMMtugx8snfyKKZuYGGxQp5E+Eua9FV0con/xJMJuw4e0v
PEb+JMwW/DrxNeok3ZfgwKRhS3yzgHGuBA/4550NkEHPS6Bcdyo5oyhmbC3F
rNCzNjirkv5fiuIW+2h99XrGb6QQVp+NzVqhPqNkZDQFJvZXtDOOTEarm7nF
OW+aV2cyfFXJ66WSPsbaKThY1RMwFkzz90+BWHFXbV72jrEiBW0drjdq7Iep
PxW2R+qa7/NGGXul4vFIRPe3qQmaRyosXey+uy3Qfi2lYmjgR95o+f/9lGHt
oXrc8Xza71wZKjMv6GZ3faZ+GXrcnu5eObpI/Wnw0M5J6lteov40WAaIO18t
rFB/Guy9rXYZaa5SfzrauK8TJz3WqD8d06PpJpZN69SfDmtJQa+Z80/ql4Pr
zNu+urFJ/XK07zMrnPrC4bJ+OXr9AipGBWqMORm4NcATJWnt4P4G2bw8+A==

      "]]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{190.625, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{722., Automatic},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{200., 800.}, {0, 5.836111495928827*^-10}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.782483458266637*^9, {3.782483497263881*^9, 3.7824835294802403`*^9}, 
   3.7824835714569616`*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"3f74ca58-7ab1-4f62-8f88-ec6506b75c51"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782470253973113*^9, 
  3.7824702541536293`*^9}},ExpressionUUID->"da68d616-da22-4bd7-b9c9-\
d0f2c36c3275"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7824837102695036`*^9, 
  3.7824837105806713`*^9}},ExpressionUUID->"9f3d8242-1549-4ca2-84e9-\
de44414d819d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"F", "[", 
  RowBox[{"800", ",", "100", ",", "0.01"}], "]"}]], "Input",
 CellChangeTimes->{{3.7824701315534887`*^9, 3.782470151530628*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"23f6866d-15d9-415d-905c-df73c5936a24"],

Cell[BoxData["1.7722235482872295`*^-9"], "Output",
 CellChangeTimes->{{3.7824678167586813`*^9, 3.7824678439788914`*^9}, {
   3.782467885897828*^9, 3.7824679107244434`*^9}, {3.78247005671105*^9, 
   3.782470098107391*^9}, {3.7824701418379908`*^9, 3.782470152920906*^9}, 
   3.782474062662795*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"f060412f-43ac-45bd-bf60-120e0980c430"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"R3", ",", 
      RowBox[{"F", "[", 
       RowBox[{"1000", ",", "R3", ",", "0.01"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"R3", ",", "0", ",", "200", ",", "10"}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7824475251428704`*^9, 3.782447527315095*^9}, {
  3.7824476554984007`*^9, 3.7824477580080996`*^9}, {3.782464655427872*^9, 
  3.782464655827765*^9}, {3.7824648135364003`*^9, 3.7824648420111303`*^9}, {
  3.7824704752556596`*^9, 3.782470527890145*^9}, {3.7824705601933775`*^9, 
  3.782470566094557*^9}, {3.782483644900312*^9, 3.782483658403204*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"0d9fb36a-4289-427e-895d-8cf596067c5d"],

Cell[BoxData[
 TemplateBox[{
  "Power","infy",
   "\"\:78b0\:5230\:65e0\:7a77\:8868\:8fbe\:5f0f \\!\\(\\*FractionBox[\\\"1\\\
\", \\\"0\\\"]\\).\"",2,97,724,27753601902997625991,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7824474720803213`*^9, {3.782447747569052*^9, 3.78244775901042*^9}, 
   3.782464664556422*^9, {3.78246481907559*^9, 3.7824648488927264`*^9}, 
   3.7824652618678436`*^9, 3.7824653665871506`*^9, 3.7824654123676777`*^9, 
   3.78246573631859*^9, 3.782466038132724*^9, 3.782470159567131*^9, 
   3.7824705295872154`*^9, {3.7824732032892923`*^9, 3.7824732111003857`*^9}, 
   3.7824740711033053`*^9, 3.7824745519104567`*^9, 3.7824756884845257`*^9, 
   3.7824831523111405`*^9, 3.782483201316106*^9, {3.7824836242565193`*^9, 
   3.782483659763567*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[97]:=",ExpressionUUID->"e8dc548d-b1df-420f-8958-\
aba9932057bd"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"\:78b0\:5230\:4e0d\:5b9a\:8868\:8fbe\:5f0f \\!\\(\\*RowBox[{\\\"0\\\", \
\\\" \\\", \\\"ComplexInfinity\\\"}]\\).\"",2,97,725,27753601902997625991,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7824474720803213`*^9, {3.782447747569052*^9, 3.78244775901042*^9}, 
   3.782464664556422*^9, {3.78246481907559*^9, 3.7824648488927264`*^9}, 
   3.7824652618678436`*^9, 3.7824653665871506`*^9, 3.7824654123676777`*^9, 
   3.78246573631859*^9, 3.782466038132724*^9, 3.782470159567131*^9, 
   3.7824705295872154`*^9, {3.7824732032892923`*^9, 3.7824732111003857`*^9}, 
   3.7824740711033053`*^9, 3.7824745519104567`*^9, 3.7824756884845257`*^9, 
   3.7824831523111405`*^9, 3.782483201316106*^9, {3.7824836242565193`*^9, 
   3.78248365980346*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[97]:=",ExpressionUUID->"535d3366-5956-4dbb-a8e2-\
81adb6ea840f"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"\:78b0\:5230\:4e0d\:5b9a\:8868\:8fbe\:5f0f \
\\!\\(\\*RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.`\\\", \\\"\
\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"0.`\\\", \\\" \\\", \\\"\
\[ImaginaryI]\\\"}]}], \\\")\\\"}], \\\" \\\", \\\"2000\\\", \\\" \\\", \\\"\
\[Pi]\\\", \\\" \\\", \\\"ComplexInfinity\\\"}]\\).\"",2,97,726,
   27753601902997625991,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7824474720803213`*^9, {3.782447747569052*^9, 3.78244775901042*^9}, 
   3.782464664556422*^9, {3.78246481907559*^9, 3.7824648488927264`*^9}, 
   3.7824652618678436`*^9, 3.7824653665871506`*^9, 3.7824654123676777`*^9, 
   3.78246573631859*^9, 3.782466038132724*^9, 3.782470159567131*^9, 
   3.7824705295872154`*^9, {3.7824732032892923`*^9, 3.7824732111003857`*^9}, 
   3.7824740711033053`*^9, 3.7824745519104567`*^9, 3.7824756884845257`*^9, 
   3.7824831523111405`*^9, 3.782483201316106*^9, {3.7824836242565193`*^9, 
   3.782483659846345*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[97]:=",ExpressionUUID->"1e2f8b53-ccef-4d04-93fc-\
11e6861bcc58"],

Cell[BoxData[
 TemplateBox[{
  "Infinity","indet",
   "\"\:78b0\:5230\:4e0d\:5b9a\:8868\:8fbe\:5f0f \\!\\(\\*RowBox[{\\\"0\\\", \
\\\" \\\", \\\"2000\\\", \\\" \\\", \\\"\[Pi]\\\", \\\" \\\", \
\\\"ComplexInfinity\\\"}]\\).\"",2,97,727,27753601902997625991,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7824474720803213`*^9, {3.782447747569052*^9, 3.78244775901042*^9}, 
   3.782464664556422*^9, {3.78246481907559*^9, 3.7824648488927264`*^9}, 
   3.7824652618678436`*^9, 3.7824653665871506`*^9, 3.7824654123676777`*^9, 
   3.78246573631859*^9, 3.782466038132724*^9, 3.782470159567131*^9, 
   3.7824705295872154`*^9, {3.7824732032892923`*^9, 3.7824732111003857`*^9}, 
   3.7824740711033053`*^9, 3.7824745519104567`*^9, 3.7824756884845257`*^9, 
   3.7824831523111405`*^9, 3.782483201316106*^9, {3.7824836242565193`*^9, 
   3.7824836598862386`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[97]:=",ExpressionUUID->"553c7d02-f0a3-48ec-9614-\
08710a98f8b0"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"\:5728\:672c\:6b21\:8ba1\:7b97\:4e2d\:ff0c\\!\\(\\*StyleBox[RowBox[{\\\"\
Infinity\\\", \\\"::\\\", \\\"indet\\\"}], \\\"MessageName\\\"]\\) \:7684\
\:8fdb\:4e00\:6b65\:8f93\:51fa\:5c06\:88ab\:6291\:5236.\"",2,97,728,
   27753601902997625991,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7824474720803213`*^9, {3.782447747569052*^9, 3.78244775901042*^9}, 
   3.782464664556422*^9, {3.78246481907559*^9, 3.7824648488927264`*^9}, 
   3.7824652618678436`*^9, 3.7824653665871506`*^9, 3.7824654123676777`*^9, 
   3.78246573631859*^9, 3.782466038132724*^9, 3.782470159567131*^9, 
   3.7824705295872154`*^9, {3.7824732032892923`*^9, 3.7824732111003857`*^9}, 
   3.7824740711033053`*^9, 3.7824745519104567`*^9, 3.7824756884845257`*^9, 
   3.7824831523111405`*^9, 3.782483201316106*^9, {3.7824836242565193`*^9, 
   3.7824836599101744`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[97]:=",ExpressionUUID->"d814521c-47a8-4c61-8a5b-\
88e9b88ba0e6"],

Cell[BoxData[
 TemplateBox[{
  "NIntegrate","inumri",
   "\"\:5728\:4ee5 \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"0\\\", \\\",\\\", FractionBox[\\\"1\\\", \\\"1000\\\"]}], \\\"}\\\
\"}], \\\"}\\\"}]\\) \:4e3a\:754c\:7684\:533a\:57df\:5185\:ff0c\:5bf9\:4e8e\
\:6240\:6709\:91c7\:6837\:70b9\:ff0c\:8ba1\:7b97\:88ab\:79ef\:51fd\:6570 \
\\!\\(\\*RowBox[{\\\"Indeterminate\\\"}]\\) \:5f97\:5230 \
Overflow\:3001Indeterminate \:6216\:8005 Infinity.\"",2,97,729,
   27753601902997625991,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7824474720803213`*^9, {3.782447747569052*^9, 3.78244775901042*^9}, 
   3.782464664556422*^9, {3.78246481907559*^9, 3.7824648488927264`*^9}, 
   3.7824652618678436`*^9, 3.7824653665871506`*^9, 3.7824654123676777`*^9, 
   3.78246573631859*^9, 3.782466038132724*^9, 3.782470159567131*^9, 
   3.7824705295872154`*^9, {3.7824732032892923`*^9, 3.7824732111003857`*^9}, 
   3.7824740711033053`*^9, 3.7824745519104567`*^9, 3.7824756884845257`*^9, 
   3.7824831523111405`*^9, 3.782483201316106*^9, {3.7824836242565193`*^9, 
   3.782483659947076*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[97]:=",ExpressionUUID->"6d9f9ae0-22e6-48ed-b58a-\
9192e829b267"],

Cell[BoxData[
 TemplateBox[{
  "NIntegrate","inumri",
   "\"\:5728\:4ee5 \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"0\\\", \\\",\\\", FractionBox[\\\"1\\\", \\\"1000\\\"]}], \\\"}\\\
\"}], \\\"}\\\"}]\\) \:4e3a\:754c\:7684\:533a\:57df\:5185\:ff0c\:5bf9\:4e8e\
\:6240\:6709\:91c7\:6837\:70b9\:ff0c\:8ba1\:7b97\:88ab\:79ef\:51fd\:6570 \
\\!\\(\\*RowBox[{\\\"Indeterminate\\\"}]\\) \:5f97\:5230 \
Overflow\:3001Indeterminate \:6216\:8005 Infinity.\"",2,97,730,
   27753601902997625991,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7824474720803213`*^9, {3.782447747569052*^9, 3.78244775901042*^9}, 
   3.782464664556422*^9, {3.78246481907559*^9, 3.7824648488927264`*^9}, 
   3.7824652618678436`*^9, 3.7824653665871506`*^9, 3.7824654123676777`*^9, 
   3.78246573631859*^9, 3.782466038132724*^9, 3.782470159567131*^9, 
   3.7824705295872154`*^9, {3.7824732032892923`*^9, 3.7824732111003857`*^9}, 
   3.7824740711033053`*^9, 3.7824745519104567`*^9, 3.7824756884845257`*^9, 
   3.7824831523111405`*^9, 3.782483201316106*^9, {3.7824836242565193`*^9, 
   3.782483659979988*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[97]:=",ExpressionUUID->"1b76153e-091b-4175-82cd-\
19be46ee0b6d"],

Cell[BoxData[
 TemplateBox[{
  "NIntegrate","inumri",
   "\"\:5728\:4ee5 \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"0\\\", \\\",\\\", FractionBox[\\\"1\\\", \\\"1000\\\"]}], \\\"}\\\
\"}], \\\"}\\\"}]\\) \:4e3a\:754c\:7684\:533a\:57df\:5185\:ff0c\:5bf9\:4e8e\
\:6240\:6709\:91c7\:6837\:70b9\:ff0c\:8ba1\:7b97\:88ab\:79ef\:51fd\:6570 \
\\!\\(\\*RowBox[{\\\"Indeterminate\\\"}]\\) \:5f97\:5230 \
Overflow\:3001Indeterminate \:6216\:8005 Infinity.\"",2,97,731,
   27753601902997625991,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7824474720803213`*^9, {3.782447747569052*^9, 3.78244775901042*^9}, 
   3.782464664556422*^9, {3.78246481907559*^9, 3.7824648488927264`*^9}, 
   3.7824652618678436`*^9, 3.7824653665871506`*^9, 3.7824654123676777`*^9, 
   3.78246573631859*^9, 3.782466038132724*^9, 3.782470159567131*^9, 
   3.7824705295872154`*^9, {3.7824732032892923`*^9, 3.7824732111003857`*^9}, 
   3.7824740711033053`*^9, 3.7824745519104567`*^9, 3.7824756884845257`*^9, 
   3.7824831523111405`*^9, 3.782483201316106*^9, {3.7824836242565193`*^9, 
   3.782483660017886*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[97]:=",ExpressionUUID->"eb296b79-a885-49b5-aaa9-\
b9036b9bb355"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"\:5728\:672c\:6b21\:8ba1\:7b97\:4e2d\:ff0c\\!\\(\\*StyleBox[RowBox[{\\\"\
NIntegrate\\\", \\\"::\\\", \\\"inumri\\\"}], \\\"MessageName\\\"]\\) \:7684\
\:8fdb\:4e00\:6b65\:8f93\:51fa\:5c06\:88ab\:6291\:5236.\"",2,97,732,
   27753601902997625991,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7824474720803213`*^9, {3.782447747569052*^9, 3.78244775901042*^9}, 
   3.782464664556422*^9, {3.78246481907559*^9, 3.7824648488927264`*^9}, 
   3.7824652618678436`*^9, 3.7824653665871506`*^9, 3.7824654123676777`*^9, 
   3.78246573631859*^9, 3.782466038132724*^9, 3.782470159567131*^9, 
   3.7824705295872154`*^9, {3.7824732032892923`*^9, 3.7824732111003857`*^9}, 
   3.7824740711033053`*^9, 3.7824745519104567`*^9, 3.7824756884845257`*^9, 
   3.7824831523111405`*^9, 3.782483201316106*^9, {3.7824836242565193`*^9, 
   3.7824836600597744`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[97]:=",ExpressionUUID->"3fc80aa5-fa60-4544-9892-\
febbdd453d0c"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEqDoGtLaUKJgftIHwTh71/Tkf83X4LyrdzOLDG
ncmr/BmU7+IwjT/m5pelb6F8TwcjFe8ys5SPUL6fg/6Wu1+X6nyG8BsCHXQd
LPLPZ32Byoc4FP+czmDs/RUqH+ZwOf125IyXUD5DpMMnk/pvFWHfoPLRDkq1
7V9nz4byGeIcVGeIbFHcD+U7JDg0xUv/9j8KU5/o0Ods8LxnI5R/IMnBbVFm
xJ02mP4Uh6df5i8S84DpT3XYrfPu2c/vMPekOWhv+jtXcyaUfyDdYcnse3bq
ejD3ZTp0Py/Y57nzix0AMGBoDw==
      "]]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 200.}, {0, 0.000021715881024813716`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7824701615358872`*^9, 3.7824705317065787`*^9, {3.78247320523409*^9, 
   3.7824732129594107`*^9}, 3.7824740729403963`*^9, 3.7824745539081135`*^9, 
   3.782475690657688*^9, 3.7824831531738334`*^9, 3.7824832022525997`*^9, {
   3.782483625120211*^9, 3.7824836607210455`*^9}},
 CellLabel->"Out[97]=",ExpressionUUID->"fc0aa920-1220-4af5-8b7b-e3dfff1db378"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   GraphicsBox[{{}, {{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{100., 0.00003829921352911331}, {200., 
        0.000029561743789855272`}, {300., 0.00001901574738572055}, {400., 
        0.00001255202009162141}, {500., 8.724338628905024*^-6}, {600., 
        6.356572902405094*^-6}, {700., 4.814517239703699*^-6}, {800., 
        3.7627640647497824`*^-6}, {900., 3.0168043141077416`*^-6}, {1000., 
        2.4700987059972366`*^-6}}]}, {}}, {}, {}, {}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 1000.}, {0, 0.00003829921352911331}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}], ",", 
   GraphicsBox[{{}, {{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{100., 0.00003829921352911331}, {200., 
        0.00002710388336688297}, {300., 0.00001725618954876973}, {400., 
        0.000011457237935445425`}, {500., 8.026775648092436*^-6}, {600., 
        5.890547148730096*^-6}, {700., 4.488620076632212*^-6}, {800., 
        3.5256951517552737`*^-6}, {900., 2.8385415047282825`*^-6}, {1000., 
        2.332278836145835*^-6}}]}, {}}, {}, {}, {}, {}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{None, None},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotRange->{{0, 1000.}, {0, 0.00003829921352911331}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "]"}]], "Input",
 CellChangeTimes->{{3.78246605137531*^9, 3.7824660577981772`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"c1a63359-9202-4f42-85f1-ba75e4559faf"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{100., 0.00003829921352911331}, {200., 
       0.000029561743789855272`}, {300., 0.00001901574738572055}, {400., 
       0.00001255202009162141}, {500., 8.724338628905024*^-6}, {600., 
       6.356572902405094*^-6}, {700., 4.814517239703699*^-6}, {800., 
       3.7627640647497824`*^-6}, {900., 3.0168043141077416`*^-6}, {1000., 
       2.4700987059972366`*^-6}}]}, {}}, {}, {}, {}, {}}, {{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{100., 0.00003829921352911331}, {200., 
       0.00002710388336688297}, {300., 0.00001725618954876973}, {400., 
       0.000011457237935445425`}, {500., 8.026775648092436*^-6}, {600., 
       5.890547148730096*^-6}, {700., 4.488620076632212*^-6}, {800., 
       3.5256951517552737`*^-6}, {900., 2.8385415047282825`*^-6}, {1000., 
       2.332278836145835*^-6}}]}, {}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1000.}, {0, 0.00003829921352911331}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.782466058957036*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"43c8e22b-d3ea-4d12-98d2-6e886689fb2c"]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{100., 0.00003829921352911331}, {200., 
      0.00002710388336688297}, {300., 0.00001725618954876973}, {400., 
      0.000011457237935445425`}, {500., 8.026775648092436*^-6}, {600., 
      5.890547148730096*^-6}, {700., 4.488620076632212*^-6}, {800., 
      3.5256951517552737`*^-6}, {900., 2.8385415047282825`*^-6}, {1000., 
      2.332278836145835*^-6}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1000.}, {0, 0.00003829921352911331}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Input",ExpressionUUID->"7b267ba8-9918-\
4b91-8a4b-6159dc69dca0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"F", "[", 
  RowBox[{
  "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
   ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.782447418705038*^9, 3.782447436358339*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"c589bb23-90b4-4b61-ad46-3df2014c0b41"],

Cell[BoxData["0.035167735945973305`"], "Output",
 CellChangeTimes->{
  3.7824451542756977`*^9, 3.782445373642893*^9, {3.7824474077842064`*^9, 
   3.782447437238557*^9}},
 CellLabel->"Out[10]=",ExpressionUUID->"2a2b1aea-e6dd-4fc9-ac2f-c9602264ce68"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["RA"], "Input",
 CellChangeTimes->{{3.7824447492054276`*^9, 3.7824447499823523`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"8465b913-f9fe-4d88-8965-76c63cde395e"],

Cell[BoxData["RA"], "Output",
 CellChangeTimes->{3.7824447508809476`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"8af40e15-84ef-45e3-95aa-864e1fbe40c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Unprotect", "[", "C", "]"}]], "Input",
 CellChangeTimes->{{3.782444801016875*^9, 3.782444806198019*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"1bb5f2c4-aa77-4f0e-afc1-a58626158d46"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.7824448071464825`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"011f358b-37b5-41c8-80c1-8ccf334d8d54"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "C", "]"}]], "Input",
 CellChangeTimes->{{3.782444808847968*^9, 3.782444812109211*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"312e997d-a743-43fc-8b53-4303f3475fda"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"RA", ",", 
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{
          "1463", ",", "RA", ",", "100", ",", "100", ",", "100", ",", "0.2", 
           ",", 
           RowBox[{"10", "^", 
            RowBox[{"-", "7"}]}], ",", "0.011", ",", "1.78"}], "]"}], "/", 
         RowBox[{"F", "[", 
          RowBox[{
          "810", ",", "RA", ",", "100", ",", "100", ",", "100", ",", "0.2", 
           ",", 
           RowBox[{"10", "^", 
            RowBox[{"-", "7"}]}], ",", "0.011", ",", "1.78"}], "]"}]}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"RA", ",", "0", ",", "100", ",", "10"}], "}"}]}], "]"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[\(R\), \(A\)]\)/\[CapitalOmega]\>\"", ",", 
       "\"\<\[CapitalIota](1463)/\[CapitalIota](810)\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7824594181718655`*^9, 3.782459510670708*^9}, {
  3.7824595959655094`*^9, 3.782459597312907*^9}, {3.782459669788068*^9, 
  3.7824596812025423`*^9}, {3.7824599922700996`*^9, 3.782459995141422*^9}, {
  3.7824604567063093`*^9, 3.7824604572179785`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"1f08ed83-98a3-4dba-95ae-a80fa90a1d2e"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], PointBox[{{0., 2.1195561153430216`}, {10., 2.2158508927722345`}, {
      20., 2.3054294924871668`}, {30., 2.3887599586618573`}, {40., 
      2.46632201971105}, {50., 2.538583222783131}, {60., 
      2.6059861309418015`}, {70., 2.668942198647132}, {80., 
      2.7278296245727844`}, {90., 2.782993516640176}, {100., 
      2.8347473446371736`}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(R\\), \\(A\\)]\\)/\[CapitalOmega]\"", 
     TraditionalForm], 
    FormBox["\"\[CapitalIota](1463)/\[CapitalIota](810)\"", TraditionalForm]},
  AxesOrigin->{0, 2.083796553878314},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 100.}, {2.1195561153430216`, 2.8347473446371736`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7824600619168205`*^9, 3.782460458972248*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"47dffc69-8716-404d-971c-08941451bb0b"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7824600190907307`*^9, 
  3.782460022813775*^9}},ExpressionUUID->"e78a1da3-770c-4f75-98c7-\
9ffc08287d88"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.782460065719653*^9, 
  3.782460065730623*^9}},ExpressionUUID->"76222d97-8c89-4543-b9d0-\
a250de028c9d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindFormula", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"RA", ",", 
      RowBox[{
       RowBox[{"F", "[", 
        RowBox[{
        "1463", ",", "RA", ",", "100", ",", "100", ",", "100", ",", "0.2", 
         ",", 
         RowBox[{"10", "^", 
          RowBox[{"-", "7"}]}], ",", "0.011", ",", "1.78"}], "]"}], "/", 
       RowBox[{"F", "[", 
        RowBox[{
        "810", ",", "RA", ",", "100", ",", "100", ",", "100", ",", "0.2", ",", 
         RowBox[{"10", "^", 
          RowBox[{"-", "7"}]}], ",", "0.011", ",", "1.78"}], "]"}]}]}], "}"}],
     ",", 
    RowBox[{"{", 
     RowBox[{"RA", ",", "0", ",", "100", ",", "10"}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.782459548235386*^9, 3.7824595551708417`*^9}, {
  3.782460047177905*^9, 3.782460048079494*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"001159aa-e286-4b6c-b156-0cef1e6e2cab"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2.1590111547724824`", "\[VeryThinSpace]", "+", 
   RowBox[{"0.007101596026727684`", " ", "#1"}]}], "&"}]], "Output",
 CellChangeTimes->{3.7824595603615613`*^9, 3.782460052291738*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"dbb1643c-5d3e-4c47-8c62-069e525db81e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"2.1590111547724824`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.007101596026727684`", "x"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "100"}], "}"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[\(R\), \(A\)]\)/\[CapitalOmega]\>\"", ",", 
       "\"\<\[CapitalIota](1463)/\[CapitalIota](810)\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.782459573080532*^9, 3.78245960481684*^9}, {
  3.7824600808956175`*^9, 3.782460082451456*^9}, {3.782460422266361*^9, 
  3.7824604249063015`*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"493d63b3-252d-413c-837d-34acf7a38901"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVz3081AcAx/H7/e7uR43iPJQ6DVOdprjRrYT7po5UuPNQv1wamhxSHs6o
rEWbJQ+hVZacTB5WWzVFqSGUOLV0HiqsqCVtPTl0yWS3P76vz+v959cydKdv
GMlgMLy0+79WhyZLFPMaXKuz/iwtFxG4pGvzcbSsSNgm1rtn5k6gIensKZ7s
nPCR0QrdTK2b7WPDKVm9UPd4fmSMB4GWTNWasfA7QmmZn91yTwKtTvtrXoQ/
Ek7VtV5WriegzO2NHQp/LfR4U9X20o/A2lod78HwKeF93+xhh1ACt/UF01hB
BqjkO40vSCHgdkh0rdxnNtRLlozpKQiE2b3X5+tb4OJIqSrkCgEvm7BhUw9r
LFbN3m7+gEBl59cJrct40L/TMd42RmAFZ9E51je2KH2avmrAmET4RF5hKW2P
uqamHWEOJHY2P3M45/UZXK6Jsvt8SBwMpOZPbneEvLsx4soOEltv7tnGlwnA
+ejA8owMEg06ZpKoTcvA17n7t7KcBN9w39HncifompvQsc0kgkdcbL23O0Mk
Ka6Z/oREseIGV5PlCqci3r3pJBMXsp16Vb7A+YsO3bssmJBfcREXrl+JrKG0
1l5nJuqVpep0qRssBV1Jp6RMRHgsr42gV4H7UxQ3OImJExX8qqjI1fhj4eSe
1GNM5I7UpsQkikAmcGqNqpkYPJ3wlSzOHYX9O9XHVExcd8/LT031wOuwliep
w0wQPj2PD+1bg4ppEa3BM1hgrKwmTu7yxGN5Vs6vi1g4MEvjpfp+LTrHfzEK
8WQhJnBro2b/OtgWGmfobGNhIMXxS+GR9XAOTKwz/o4F48M/9qQXe+H2w6CO
nBIWygwW7bpZ4I0bKZl9U/UsNMR9LFp4xgdy1+rirocsKCxOcl38xThoxpMq
JlioTX7PkLWLYfW7+duuWWxYrtP595ONEsQmzfCSC9i4eMcm40GnBAv8PPLZ
fmxkNn+wtwjyxQ8ee4omY9k4HP88MrjPF7JAzfGhbDaSTebNtNrkh1pHTaLb
GTZ+tmEr5f1+UPLUBkwlG9QoYdawxR8uK5YqqgfZKLf/ba/imT9k4fHP2tkU
bEJPe09GB8BEupQTaE2h17OmMuCfAPCihfxuUFCV7F4sjN8Adf5qvZovKLy7
IHG2Um+A9ZPc3uxkClOX46rSdmxE92hoZkc+hXX27qLksY2Ahd343ksUbgbZ
RUTF0zCMXBVo3kmBs1V2tTCBhms707pQ6y2yYv32RBqRgusvuV0U3sYZVTom
02giRSncbgrWBzTvJ7+lIS9wr5h7n8K+yvrMnKM07t/yfGvWR8FJR3y+qoaG
wk6cZ/oXhTS9dHLoKo22Iwabj2p917DRf04dDc1E+3zTpxRkXMfxvY00xC2S
GpNBCsf4s93WtNEgQ/z6jYcojEr7O3r6aITlbVhi9IICQswW6D+ikfvO9F2e
1hnbfJOEAzTqttxr4LykYBV7nXvqKQ3TT+kAzisKkrSKsOhXNFqaNiUbvqFw
ImPgUtEbGqM2c9xztR7KmTNdpaZhmdMz03BY+6cg86xAQ2P3ZmmJgZrCrZM3
GBHjNMoa50bnaD2r7INvwQQNFa9PYDBCIfTM56W3J2lMZZ9g5Gh99nyMZmqK
hu3YZuXMUQr/AVTGEuM=
       "]]},
     Annotation[#, "Charting`Private`Tag$5128057#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(R\\), \\(A\\)]\\)/\[CapitalOmega]\"", 
     TraditionalForm], 
    FormBox["\"\[CapitalIota](1463)/\[CapitalIota](810)\"", TraditionalForm]},
  AxesOrigin->{0, 2.1590111692655354`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 100}, {2.1590111692655354`, 2.869170742952198}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7824595904502597`*^9, 3.782459606101405*^9}, 
   3.782460083838746*^9, {3.782460425763009*^9, 3.7824604418191185`*^9}},
 CellLabel->"Out[39]=",ExpressionUUID->"bce8d94f-517c-4142-8c03-1ee54e535202"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"A", ",", "B", ",", "G"}], "]"}]], "Input",
 CellChangeTimes->{{3.7824596088769827`*^9, 3.7824596227054653`*^9}, {
  3.7824596964008985`*^9, 3.78245979850846*^9}, {3.7824600880953636`*^9, 
  3.782460091484301*^9}, {3.7824602430314837`*^9, 3.7824604091489277`*^9}, {
  3.7824604695682364`*^9, 3.7824604950599785`*^9}, {3.782460592554781*^9, 
  3.782460595127901*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"44f1993e-78f2-486a-8bcb-b230da9fb205"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[{{0., 2.1195561153430216`}, {10., 2.2158508927722345`}, {
       20., 2.3054294924871668`}, {30., 2.3887599586618573`}, {40., 
       2.46632201971105}, {50., 2.538583222783131}, {60., 
       2.6059861309418015`}, {70., 2.668942198647132}, {80., 
       2.7278296245727844`}, {90., 2.782993516640176}, {100., 
       2.8347473446371736`}}]}, {}}, {}, {}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVz3081AcAx/H7/e7uR43iPJQ6DVOdprjRrYT7po5UuPNQv1wamhxSHs6o
rEWbJQ+hVZacTB5WWzVFqSGUOLV0HiqsqCVtPTl0yWS3P76vz+v959cydKdv
GMlgMLy0+79WhyZLFPMaXKuz/iwtFxG4pGvzcbSsSNgm1rtn5k6gIensKZ7s
nPCR0QrdTK2b7WPDKVm9UPd4fmSMB4GWTNWasfA7QmmZn91yTwKtTvtrXoQ/
Ek7VtV5WriegzO2NHQp/LfR4U9X20o/A2lod78HwKeF93+xhh1ACt/UF01hB
BqjkO40vSCHgdkh0rdxnNtRLlozpKQiE2b3X5+tb4OJIqSrkCgEvm7BhUw9r
LFbN3m7+gEBl59cJrct40L/TMd42RmAFZ9E51je2KH2avmrAmET4RF5hKW2P
uqamHWEOJHY2P3M45/UZXK6Jsvt8SBwMpOZPbneEvLsx4soOEltv7tnGlwnA
+ejA8owMEg06ZpKoTcvA17n7t7KcBN9w39HncifompvQsc0kgkdcbL23O0Mk
Ka6Z/oREseIGV5PlCqci3r3pJBMXsp16Vb7A+YsO3bssmJBfcREXrl+JrKG0
1l5nJuqVpep0qRssBV1Jp6RMRHgsr42gV4H7UxQ3OImJExX8qqjI1fhj4eSe
1GNM5I7UpsQkikAmcGqNqpkYPJ3wlSzOHYX9O9XHVExcd8/LT031wOuwliep
w0wQPj2PD+1bg4ppEa3BM1hgrKwmTu7yxGN5Vs6vi1g4MEvjpfp+LTrHfzEK
8WQhJnBro2b/OtgWGmfobGNhIMXxS+GR9XAOTKwz/o4F48M/9qQXe+H2w6CO
nBIWygwW7bpZ4I0bKZl9U/UsNMR9LFp4xgdy1+rirocsKCxOcl38xThoxpMq
JlioTX7PkLWLYfW7+duuWWxYrtP595ONEsQmzfCSC9i4eMcm40GnBAv8PPLZ
fmxkNn+wtwjyxQ8ee4omY9k4HP88MrjPF7JAzfGhbDaSTebNtNrkh1pHTaLb
GTZ+tmEr5f1+UPLUBkwlG9QoYdawxR8uK5YqqgfZKLf/ba/imT9k4fHP2tkU
bEJPe09GB8BEupQTaE2h17OmMuCfAPCihfxuUFCV7F4sjN8Adf5qvZovKLy7
IHG2Um+A9ZPc3uxkClOX46rSdmxE92hoZkc+hXX27qLksY2Ahd343ksUbgbZ
RUTF0zCMXBVo3kmBs1V2tTCBhms707pQ6y2yYv32RBqRgusvuV0U3sYZVTom
02giRSncbgrWBzTvJ7+lIS9wr5h7n8K+yvrMnKM07t/yfGvWR8FJR3y+qoaG
wk6cZ/oXhTS9dHLoKo22Iwabj2p917DRf04dDc1E+3zTpxRkXMfxvY00xC2S
GpNBCsf4s93WtNEgQ/z6jYcojEr7O3r6aITlbVhi9IICQswW6D+ikfvO9F2e
1hnbfJOEAzTqttxr4LykYBV7nXvqKQ3TT+kAzisKkrSKsOhXNFqaNiUbvqFw
ImPgUtEbGqM2c9xztR7KmTNdpaZhmdMz03BY+6cg86xAQ2P3ZmmJgZrCrZM3
GBHjNMoa50bnaD2r7INvwQQNFa9PYDBCIfTM56W3J2lMZZ9g5Gh99nyMZmqK
hu3YZuXMUQr/AVTGEuM=
        "]]},
      Annotation[#, "Charting`Private`Tag$5128057#1"]& ]}, {}, {}}, 
   {Dashing[{Small, Small}], 
    LineBox[{{0, 2.4615384615384617`}, {42.6, 2.4615384615384617`}}]}, 
   InsetBox[
    StyleBox[Cell["\:5b9e\:9a8c\:4e2d\:6d4b\:5f97\:7684\:5546\:503c",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "01e24cd1-9705-4494-bb39-60fa6ad0587d"],
     TextAlignment->Center,
     FontColor->GrayLevel[0.4],
     Background->GrayLevel[1.]], {6.604710556186152, 2.516913144705577}, {
    Left, Baseline},
    Alignment->{Left, Top}], 
   InsetBox["", {6.372966343526663, 2.5283552902405484}, {Left, Top}, {
    18.53953839996255, Automatic},
    Alignment->{Left, Top}], 
   InsetBox["", {23.522039363492024, 2.5254947538730397}, {Left, Baseline},
    Alignment->{Left, Top}], 
   InsetBox["", {21.668085523495765, 2.5283552902405484}, {Left, Baseline},
    Alignment->{Left, Top}], 
   InsetBox["", {20.509364373498112, 2.5283552902405484}, {Left, Baseline},
    Alignment->{Left, Top}], 
   InsetBox["", {11.471339403516364, 2.511192072035498}, {Left, Baseline},
    Alignment->{Left, Top}], 
   InsetBox["", {31.401343183476104, 2.4682840265228707}, {Left, Baseline},
    Alignment->{Left, Top}], 
   InsetBox["", {8.922152873521515, 2.545518508445599}, {Left, Top}, {
    15.758607639968169`, Automatic},
    Alignment->{Left, Top}], 
   InsetBox["", {10.080874023519176, 2.545518508445599}, {Left, Baseline},
    Alignment->{Left, Top}], 
   InsetBox["", {10.080874023519176, 2.5254947538730397}, {Left, Baseline},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell["",
      CellBaseline->Baseline,
      TextAlignment->Left,ExpressionUUID->
      "03eda247-dc88-425d-a9df-9c84b9f7d458"],
     TextAlignment->Center,
     FontColor->GrayLevel[0.4],
     Background->GrayLevel[1.]], {92.58181990335251, 2.8630380452390365}, {
    Left, Baseline},
    Alignment->{Left, Top}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(R\\), \\(A\\)]\\)/\[CapitalOmega]\"", 
     TraditionalForm], 
    FormBox["\"\[CapitalIota](1463)/\[CapitalIota](810)\"", TraditionalForm]},
  AxesOrigin->{0, 2.083796553878314},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{21.510204, 34.}, {15.611, 19.}},
  ImageSize->{505., Automatic},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-2.0833333333333335`, 102.08333333333333`}, {
   2.0798232692711243`, 2.874480190709071}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  Ticks->{Automatic, Automatic}]], "Input",
 CellChangeTimes->{{3.7824609002852526`*^9, 3.7824609404924154`*^9}, {
  3.782463077301543*^9, 
  3.782463077311548*^9}},ExpressionUUID->"6771d178-71d6-4c00-bbd8-\
0ad4ff7d44bb"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.78246084900935*^9, 3.7824608839683743`*^9}, {
  3.782463455869812*^9, 
  3.782463455994478*^9}},ExpressionUUID->"3963a71a-76c9-4e38-95b0-\
0329559cf120"],

Cell[BoxData[
 GraphicsBox[
  {EdgeForm[{GrayLevel[0.3333333333333333], Opacity[0.33]}], FaceForm[{
   GrayLevel[0.49999237048905165`], Opacity[0.33]}], 
   RectangleBox[{36.99901826705963, 2.6753844807250924}, \
{36.99901826705963, 2.6753844807250924}]},
  ImagePadding->{{0., 1.}, {1., 0.}},
  PlotRange->{{17.728696252966074`, 56.2693402811532}, {-16.564105018145916`, 
   21.914873979596102`}},
  PlotRangePadding->Automatic]], "Input",
 CellChangeTimes->{{3.782460647929714*^9, 3.782460682570593*^9}, {
  3.7824607296672173`*^9, 3.7824607989820404`*^9}, {3.7824608291940346`*^9, 
  3.782460834738208*^9}},ExpressionUUID->"7357b897-22aa-4f70-9ebd-\
e9c2f2cf9a67"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"2.1590111547724824`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.007101596026727684`", "x"}]}], "\[Equal]", 
    RowBox[{"32", "/", "13"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.782460032865226*^9, 3.782460042606131*^9}, {
  3.7824601587407465`*^9, 3.7824601854170437`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"2031c760-13e8-4c6a-80ef-93345694fab2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", "42.59990368747849`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7824601862378483`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"086bb8ba-578c-459b-9e61-bfcf237f4499"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G", "=", 
  RowBox[{"Graphics", "[", 
   RowBox[{"{", 
    RowBox[{"Dashed", ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"N", "[", 
           RowBox[{"32", "/", "13"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"42.6", ",", 
          RowBox[{"N", "[", 
           RowBox[{"32", "/", "13"}], "]"}]}], "}"}]}], "}"}], "]"}]}], "}"}],
    "]"}]}]], "Input",
 CellChangeTimes->{{3.7824605267441893`*^9, 3.7824605831553354`*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"4acd226d-08eb-4ced-bcc9-774d594d9092"],

Cell[BoxData[
 GraphicsBox[
  {Dashing[{Small, Small}], 
   LineBox[{{0, 2.4615384615384617`}, {42.6, 
     2.4615384615384617`}}]}]], "Output",
 CellChangeTimes->{{3.7824605164417396`*^9, 3.7824605845442047`*^9}},
 CellLabel->"Out[47]=",ExpressionUUID->"7c512f1d-a6b1-4dca-af8b-5ec7dd94ee82"]
}, Open  ]]
},
WindowSize->{1280, 637},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
CellContext->Notebook,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 8497, 188, 409, "Input",ExpressionUUID->"1795e264-4c49-4864-b124-9d965d920f01"],
Cell[CellGroupData[{
Cell[9080, 212, 576, 14, 45, "Input",ExpressionUUID->"22a6419e-f677-46f9-aceb-c9687b42951a"],
Cell[9659, 228, 2366, 55, 443, "Output",ExpressionUUID->"3f74ca58-7ab1-4f62-8f88-ec6506b75c51"]
}, Open  ]],
Cell[12040, 286, 154, 3, 28, "Input",ExpressionUUID->"da68d616-da22-4bd7-b9c9-d0f2c36c3275"],
Cell[12197, 291, 156, 3, 28, InheritFromParent,ExpressionUUID->"9f3d8242-1549-4ca2-84e9-de44414d819d"],
Cell[CellGroupData[{
Cell[12378, 298, 241, 4, 28, "Input",ExpressionUUID->"23f6866d-15d9-415d-905c-df73c5936a24"],
Cell[12622, 304, 374, 5, 32, "Output",ExpressionUUID->"f060412f-43ac-45bd-bf60-120e0980c430"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13033, 314, 771, 16, 45, "Input",ExpressionUUID->"0d9fb36a-4289-427e-895d-8cf596067c5d"],
Cell[13807, 332, 902, 17, 47, "Message",ExpressionUUID->"e8dc548d-b1df-420f-8958-aba9932057bd"],
Cell[14712, 351, 931, 18, 24, "Message",ExpressionUUID->"535d3366-5956-4dbb-a8e2-81adb6ea840f"],
Cell[15646, 371, 1137, 21, 24, "Message",ExpressionUUID->"1e2f8b53-ccef-4d04-93fc-11e6861bcc58"],
Cell[16786, 394, 983, 18, 24, "Message",ExpressionUUID->"553c7d02-f0a3-48ec-9614-08710a98f8b0"],
Cell[17772, 414, 1023, 19, 24, "Message",ExpressionUUID->"d814521c-47a8-4c61-8a5b-88e9b88ba0e6"],
Cell[18798, 435, 1224, 22, 47, "Message",ExpressionUUID->"6d9f9ae0-22e6-48ed-b58a-9192e829b267"],
Cell[20025, 459, 1224, 22, 47, "Message",ExpressionUUID->"1b76153e-091b-4175-82cd-19be46ee0b6d"],
Cell[21252, 483, 1224, 22, 47, "Message",ExpressionUUID->"eb296b79-a885-49b5-aaa9-b9036b9bb355"],
Cell[22479, 507, 1026, 19, 24, "Message",ExpressionUUID->"3fc80aa5-fa60-4544-9892-febbdd453d0c"],
Cell[23508, 528, 1859, 45, 225, "Output",ExpressionUUID->"fc0aa920-1220-4af5-8b7b-e3dfff1db378"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25404, 578, 3292, 80, 76, "Input",ExpressionUUID->"c1a63359-9202-4f42-85f1-ba75e4559faf"],
Cell[28699, 660, 2142, 48, 231, "Output",ExpressionUUID->"43c8e22b-d3ea-4d12-98d2-6e886689fb2c"]
}, Open  ]],
Cell[30856, 711, 1540, 39, 227, "Input",ExpressionUUID->"7b267ba8-9918-4b91-8a4b-6159dc69dca0"],
Cell[CellGroupData[{
Cell[32421, 754, 299, 6, 28, "Input",ExpressionUUID->"c589bb23-90b4-4b61-ad46-3df2014c0b41"],
Cell[32723, 762, 248, 4, 32, "Output",ExpressionUUID->"2a2b1aea-e6dd-4fc9-ac2f-c9602264ce68"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33008, 771, 176, 2, 28, "Input",ExpressionUUID->"8465b913-f9fe-4d88-8965-76c63cde395e"],
Cell[33187, 775, 151, 2, 32, "Output",ExpressionUUID->"8af40e15-84ef-45e3-95aa-864e1fbe40c9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33375, 782, 206, 3, 45, "Input",ExpressionUUID->"1bb5f2c4-aa77-4f0e-afc1-a58626158d46"],
Cell[33584, 787, 167, 3, 32, "Output",ExpressionUUID->"011f358b-37b5-41c8-80c1-8ccf334d8d54"]
}, Open  ]],
Cell[33766, 793, 202, 3, 45, "Input",ExpressionUUID->"312e997d-a743-43fc-8b53-4303f3475fda"],
Cell[CellGroupData[{
Cell[33993, 800, 1433, 35, 82, "Input",ExpressionUUID->"1f08ed83-98a3-4dba-95ae-a80fa90a1d2e"],
Cell[35429, 837, 1785, 43, 238, "Output",ExpressionUUID->"47dffc69-8716-404d-971c-08941451bb0b"]
}, Open  ]],
Cell[37229, 883, 154, 3, 28, "Input",ExpressionUUID->"e78a1da3-770c-4f75-98c7-9ffc08287d88"],
Cell[37386, 888, 152, 3, 28, "Input",ExpressionUUID->"76222d97-8c89-4543-b9d0-a250de028c9d"],
Cell[CellGroupData[{
Cell[37563, 895, 921, 24, 45, "Input",ExpressionUUID->"001159aa-e286-4b6c-b156-0cef1e6e2cab"],
Cell[38487, 921, 296, 5, 32, "Output",ExpressionUUID->"dbb1643c-5d3e-4c47-8c62-069e525db81e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38820, 931, 742, 17, 45, "Input",ExpressionUUID->"493d63b3-252d-413c-837d-34acf7a38901"],
Cell[39565, 950, 3491, 75, 230, "Output",ExpressionUUID->"bce8d94f-517c-4142-8c03-1ee54e535202"]
}, Open  ]],
Cell[43071, 1028, 492, 8, 45, "Input",ExpressionUUID->"44f1993e-78f2-486a-8bcb-b230da9fb205"],
Cell[43566, 1038, 5647, 119, 325, "Input",ExpressionUUID->"6771d178-71d6-4c00-bbd8-0ad4ff7d44bb"],
Cell[49216, 1159, 202, 4, 28, "Input",ExpressionUUID->"3963a71a-76c9-4e38-95b0-0329559cf120"],
Cell[49421, 1165, 667, 13, 372, "Input",ExpressionUUID->"7357b897-22aa-4f70-9ebd-e9c2f2cf9a67"],
Cell[CellGroupData[{
Cell[50113, 1182, 441, 9, 45, "Input",ExpressionUUID->"2031c760-13e8-4c6a-80ef-93345694fab2"],
Cell[50557, 1193, 243, 5, 32, "Output",ExpressionUUID->"086bb8ba-578c-459b-9e61-bfcf237f4499"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50837, 1203, 641, 18, 45, "Input",ExpressionUUID->"4acd226d-08eb-4ced-bcc9-774d594d9092"],
Cell[51481, 1223, 293, 6, 72, "Output",ExpressionUUID->"7c512f1d-a6b1-4dca-af8b-5ec7dd94ee82"]
}, Open  ]]
}
]
*)

